home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0046_Finding Number of Rows.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  633 b   |  32 lines
  1. {
  2. SEAN PALMER
  3.  
  4. > Does anyone have any quick Procedures For detecting the number of
  5. > lines as passed through the Dos "MODE" command? Ie, 25 lines, 43 or 50
  6. > line mode? This way, when Programming a door, I can place the status
  7. > line on the correct area of screen.
  8.  
  9. Try this, anything that correctly updates the bios when it changes modes
  10. should be reported correctly.
  11. }
  12.  
  13. Var
  14.   rows : Byte;
  15.  
  16. Function getRows : Byte; Assembler;
  17. Asm
  18.   mov ax, $1130
  19.   xor dx, dx
  20.   int $10
  21.   or  dx, dx
  22.   jnz @S   {cga/mda don't have this fn}
  23.   mov dx, 24
  24.  @S:
  25.   inc dx
  26.   mov al, dl
  27. end;
  28.  
  29. begin
  30.   writeln(getrows);
  31. end.
  32.